Prepis SQLite Api do Delphi
Otázka od: Bronislav Klucka
7. 11. 2003 22:37
Zdar, jsou 3 fce definovane na SQLite homepage
********************
int sqlite_compile(
sqlite *db, /* The open database */
const char *zSql, /* SQL statement to be compiled */
const char **pzTail, /* OUT: uncompiled tail of zSql */
sqlite_vm **ppVm, /* OUT: the virtual machine to execute zSql */
char **pzErrmsg /* OUT: Error message. */
);
int sqlite_step(
sqlite_vm *pVm, /* The virtual machine to execute */
int *pN, /* OUT: Number of columns in result */
const char ***pazValue, /* OUT: Column data */
const char ***pazColName /* OUT: Column names and datatypes */
);
int sqlite_finalize(
sqlite_vm *pVm, /* The virtual machine to be finalized */
char **pzErrMsg /* OUT: Error message */
);
********************
Takto jsem je prepsal:
********************
type
PSQLite=type pointer;
var
SQLite:PSQLite;
sqlite_compile:function(ASQLite:PSQLite; ASql:pChar; var ASqlTail:Pointer;
var ASqlVM:PSQLite; var AErrMsg: pChar):integer; cdecl;
sqlite_step:function(ASqlVM:PSQLite; AColumnCount:PInteger; var
AColumnValues: Pointer; var AColumnNames: Pointer):integer; cdecl;
sqlite_finalize:function(ASqlVM:PSQLite; var AErrMsg: pChar):integer; cdecl;
********************
A takto pouzil:
********************
procedure TForm1.Button4Click(Sender: TObject);
var tail:Pointer;
SqlVM:PSQLite;
res:integer;
cc:PInteger;
cv,cn:pointer;
begin
res:=sqlite_compile(SQLite,pChar('select * from aa;'),tail,SqlVM,ErrMsg);
if sqlite_step(SqlVM,cc,cv,cn)=SQLITE_ROW then
begin
end;
if sqlite_step(SqlVM,cc,cv,cn)=SQLITE_ROW then
begin
end;
if sqlite_step(SqlVM,cc,cv,cn)=SQLITE_ROW then
begin
end;
sqlite_finalize(SqlVM,ErrMsg);
end;
********************
Kdyz tam mam sqlite_step jednou, vsechno funguje, jak ma, pokud to tam mam
vicekrat, spadne to:
"acces violation at address 673E8B76 in module
'sqlite.dll'. Write of address 0043D4Fs".
Mam SQLite verze 2.8.6 pro
Windows. Nevite nekdo, jestli neni chyba nekde v prepisu tech fci????
Bronislav Klucka
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Bronislav Klucka
7. 11. 2003 23:31
uz vim, kde je chyba.. v prepisu..
toto
> int *pN, /* OUT: Number of columns in result */
neni AColumnCount:PInteger; ale var AColumnCount:Integer;
Klucka
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Lukas Gebauer
8. 11. 2003 9:54
> Zdar, jsou 3 fce definovane na SQLite homepage
Neco mi unika, nebo schvalne nepouzivas uz davno hotovy Delphi
prepis, co je na Torry?
--
Lukas Gebauer.
E-mail: gebauerl@mlp.cz
http://www.ararat.cz/synapse/ - Ararat Synapse - TCP/IP Lib.
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Bronislav Klucka
8. 11. 2003 11:16
> > Zdar, jsou 3 fce definovane na SQLite homepage
>
> Neco mi unika, nebo schvalne nepouzivas uz davno hotovy Delphi
> prepis, co je na Torry?
>
v tom, co jsem si stahl neni vsechno a neni to udelano, jak bych si to
predstavoval.
Brona Klucka
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Tomas Rosa
8. 11. 2003 11:51
kompletni prepis vsechn fci SQLite API mam take jiz davno hotov, takze muzu
zaslat
>Brona Klucka
btw: Brona, to jsem psal, jeste kdyz jsme spolu sedeli v kancelari!
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa@PinkNet.cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Bronislav Klucka
9. 11. 2003 21:11
> -----Original Message-----
> From: delphi-l-owner@clexpert.cz
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Tomas Rosa
> Sent: Saturday, November 08, 2003 11:32 AM
> To: delphi-l@clexpert.cz
> Subject: Re: Prepis SQLite Api do Delphi
>
>
> kompletni prepis vsechn fci SQLite API mam take jiz davno hotov,
> takze muzu
> zaslat
>
>
> >Brona Klucka
>
> btw: Brona, to jsem psal, jeste kdyz jsme spolu sedeli v kancelari!
>
>
ja vim, ale kdyz ja jsem pul roku potom stahoval verzi pro kadernictvi, byla
2.7.1, ted je asi 2.8.2...
veci se meni : 
)
Brona
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)